home *** CD-ROM | disk | FTP | other *** search
/ Dynamic HTML Construction Kit / Dynamic HTML Construction Kit.iso / source_code / dhtmlunl / dhtml.exe / CD Content / Chap21 / addcard.asp next >
Encoding:
Text File  |  1997-12-18  |  3.5 KB  |  148 lines
  1. <html>
  2. <head><title>Add A Trading Card</title></head>
  3.  
  4. <body
  5. bgcolor="ffffff" text="000000" link="000080" language="VBS" onload="init">
  6. <% servername = request.cookies("servername")
  7.    if len(servername)=0 then
  8.      servername = "http://" + Request.ServerVariables("SERVER_NAME")
  9.    end if
  10.    dsn = request.cookies("dsn")
  11.    if len(dsn) = 0 then
  12.      dsn = "Cards"
  13.    end if
  14. %>
  15.  
  16. <h1 align="center">Add Card</h1>
  17. <div align="center"><center>
  18.  
  19. <table border="0" cellpadding="5">
  20.   <tr>
  21.     <td align="right">Year:</td>
  22.     <td><input type="text" name="YearFld" size="20"></td>
  23.   </tr>
  24.   <tr>
  25.     <td align="right">Issuer:</td>
  26.     <td><input type="text" name="Issuer" size="20"></td>
  27.   </tr>
  28.   <tr>
  29.     <td align="right">Set Name:</td>
  30.     <td><input type="text" name="SetName" size="20"></td>
  31.   </tr>
  32.   <tr>
  33.     <td align="right">Card Number:</td>
  34.     <td><input type="text" name="CardNumber" size="20"></td>
  35.   </tr>
  36.   <tr>
  37.     <td align="right">Description:</td>
  38.     <td><input type="text" name="Description" size="50"></td>
  39.   </tr>
  40.   <tr>
  41.     <td align="right">Grade:</td>
  42.     <td><input type="text" name="Grade" size="20"></td>
  43.   </tr>
  44.   <tr>
  45.     <td align="right">Value:</td>
  46.     <td><input type="text" name="ValueFld" size="20"></td>
  47.   </tr>
  48. </table>
  49. </center></div>
  50.  
  51. <p align="center">    <input type="BUTTON" name="Update"
  52. value="Save Changes" onclick="Update"> <input type="BUTTON" name="Cancel"
  53. value="Cancel Changes" onclick="Cancel"></p>
  54.  
  55. <p align="center"> 
  56. <input type="button" name="AddNew" value="Add Another New Card"
  57.  onclick="AddNewCard"></p>
  58.  
  59. <p> </p>
  60.  
  61. <p>
  62. <object classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"
  63. id="ADC" height="1" width="1">
  64. </object>
  65. </p>
  66. <script language="VBScript" onload="Init"><!--
  67.  
  68. SUB Update
  69.  
  70.    ssql = "Insert Into Cards (Year,Issuer,SetName,CardNumber, "
  71.    ssql = ssql + "Description, Grade, CardValue) VALUES ( "
  72.    if isnumeric(yearfld.value) then
  73.       ssql = ssql + yearfld.value + ", "
  74.    else
  75.       ssql = ssql + "0, "
  76.    end if
  77.    if len(issuer.value) > 0 then
  78.       ssql = ssql + "'" + issuer.value + "', "
  79.    else
  80.       ssql = ssql + "NULL, "
  81.    end if
  82.    if len(setname.value) > 0 then
  83.       ssql = ssql + "'" + setname.value + "', "
  84.    else
  85.       ssql = ssql + "NULL, "
  86.    end if
  87.    if isnumeric(cardnumber.value) then
  88.       ssql = ssql + cardnumber.value + ", "
  89.    else
  90.       ssql = ssql + "0, "
  91.    end if
  92.  
  93.    if len(description.value) > 0 then
  94.       ssql = ssql + "'" + description.value + "', "
  95.    else
  96.       ssql = ssql + "NULL, "
  97.    end if
  98.    if len(grade.value) > 0 then
  99.       ssql = ssql + "'" + grade.value + "', "
  100.    else
  101.       ssql = ssql + "NULL, "
  102.    end if
  103.    if isnumeric(valuefld.value) then
  104.       ssql = ssql + valuefld.value + ")"
  105.    else
  106.       ssql = ssql + "0)"
  107.    end if
  108.  
  109.    ADC.SQL = ssql
  110.    ADC.Refresh
  111.    if err = 0 then
  112.       if Msgbox("Add another card?",4) = 6 then
  113.          location.reload
  114.       else
  115.          window.navigate "default.htm"
  116.       end if
  117.    else
  118.       msgbox "An error occurred."
  119.    end if
  120.  
  121. END SUB
  122.  
  123. SUB Cancel
  124.    ADC.CancelUpdate
  125.    yearfld.value = ""
  126.    issuer.value = ""
  127.    setname.value = ""
  128.    cardnumber.value = ""
  129.    description.value = ""
  130.    grade.value = ""
  131.    valuefld.value = ""
  132.  
  133. END SUB
  134.  
  135. Sub AddNewCard
  136.    window.location.href = "addnew.asp"
  137. end sub
  138.  
  139. SUB Init
  140.    ADC.Server = "<%=servername%>"
  141.    ADC.Connect = "DSN=<%=dsn%>;"
  142.    ADC.SQL = "Select * from Cards"
  143.  
  144. END SUB
  145.  
  146. --></script>
  147. </body></html>
  148.